home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
PROGRAMR
/
LB09D.ZIP
/
GETCHAR.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-02-21
|
207b
|
12 lines
'read testfile.txt and display each item
'on its own line
OPEN"TESTFILE" FOR INPUT AS #IN
10 IF EOF(#IN) <> 0 THEN [end]
PRINT INPUT$( #IN, 1 );
GOTO 10
[end]
CLOSE #IN